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; 1 001 MODULE PASSREAD_UNSIGNED ( ZTITLE ‘Read an unsigned integer’ H 
; ¢ 009¢ 6 {DENT Fe 4-503" a“ File: BASREAUNS.B32 Edit: $BL1002 : 
Be gee | gecin 
: § ie) } leuaeenaeeannenteenereneeeneneeererrerententrertnetenetnnetnntnnennennenneees : 
3 '® * ; 
3 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY + 3 
.. 0009 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . ; 
: 19 Bats : i“ ALL RIGHTS RESERVED. * ; 
: \ * 3 
3 i Bot¢ 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
. .% 015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ; 
.” i! 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 3 
:- 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 3 
$ 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® ° 
; \? id : - TRANSFERRED. . 3 
3 ! x 3 
; 2 O19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 3 
; $3 3 \ CORPORATION. * : 
fe * 3 
..- oe $038 1 != DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * F 
P 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
c! = 0025 1 ! * ; 
; @& 0026 1 !* * F 
3 o7 QO27 1 eee eee eee A EATER ARERR RA RARERE EERE EEE ‘ 
,; 0028 1! $ 
; 2 94 1 3 
; £ 008) 1 | FACILITY: Pascal L ee ; 
3 ! : ascal Language Suppor 3 
: 32 0052 1 ae : 
s = 0033 1 ! ABSTRACT: 3 
; 0034 1! 3 
; 2 0035 1! This module contains procedures which read an unsigned integer ; 
; $$ ite: : from a textfile or a string. : 
: M3 sit : ENVIRONMENT: User mode - AST reentrant : 
: 40 0040 i AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 ; 
> 42 0042 1 | MODIFIED BY: : 
; 65 0043 1! 3 
: «644 0044 1 ! 1-001 - Original. SBL 1-April-1981 3 
: 65 0045 1 ! 1-002 - Use PASSSEND_READ. SBL 26-May-1982 3 
; 46 0046 1 !-- 3 
; 67 0047 1 : 
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PFV - The Pascal File Variable (PFV) passed Oe rose aes*: 


ERROR - Optional. If specified, the address to unwind to 


The structure of the PFV is defined in 


wr 


in case of an error. 
IMPLICIT INPUTS: 


' 

i 

; NONE 
! 

' 

i 

i] 
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1-002 PASSREAD_UNSIGNED - Read an unsigned integer fr 14-Sep-19 4 95: 1:52 PASRTL. RESPASREAUNS B92; 1 . (3) 

8 1 ZSBTTL *PASSREAD_UNSIGNED = Read an unsigned integer from textfile' . 

a GLOBAL ROUTINE PASSREAD UNSIGNED ( | 

84 PFV: REF SPASSPFV_FILE_VARIABLE, ! File variable : 

34 _ ERROR ! Error unwind address | ; 

87 ¥ | ; 

88 ++ : 

34 FUNCTIONAL DESCRIPTION: : 

91 This function reads an unsigned integer from the specified textfile | ; 

3 and returns it as the function value. ‘ 

94 CALLING SEQUENCE: | ; 

9% Unsigned.wlu.v = PASSREAD_UNSIGNED (PFV.mr.r C, ERROR. ja.rJ) | : 

98 FORMAL PARAMETERS: | ; 

100 | 

| 


i IMPLICIT OUTPUTS: | 
NONE | 
ROUTINE VALUE: 
The value of the unsigned integer read. | 
SIDE EFFECTS: | 
If the file is the standard file INPUT or OUTPUT, it is implicitly opened. | 

! SIGNALLED ERRORS: 


INVSYNUNS - invalid syntax for unsigned value ; 
NOTVALTYP = ‘“'string’’ is not a value of type ‘‘type’ 


WWIWNIANININPININININININDINS 2 2 OOOO SS COCO OCOCOCOO 
FUNSTSSRVETRANVLSSBNGAARWN OSORNO 


BEGIN | 
LOCAL | 
RESULT, ' Result value | 
STRING_LENGTH, : Length of string 
STRING_ADDR ! Address of string 
FCB: REF SPASSFCB_CONTROL_BLOCK,! File Control block 
PFV_ADDR: VOLATILE Enable argument 


i Enable argument 
! Enable argument 
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2 PASSREAD_UNSIGNED = Read an unsigned integer fr 14-Sep-19 1:52 PASRTL.SRCJPASREAUNS.B3<, 1 (3) | 
j 

; i> 0200 | 
: 140 0201 BUILTIN 
s 94) 0 6 ACTUALCOUNT; ! Count of arguments 
: 16 020 
; (14 0204 ENABLE 
3 Vie 8 82 PASSS$SIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 
; 146 RSet 4 
; 147 0208 ! Get ERROR parameter, if present. 
3; (148 209 te 
; «149 0210 
3 129 8 V § IF ACTUALCOUNT () GEQU 2 
° | 
: 136 2218 § ERROR_ADDR = .ERROR; ' Set unwind address 
s 154 0215 2 PFV_ADDR = PFV CPFVSR_PFVJ; ! Set PFV address 
s 735 0216 2 
; i” 0217 2 Mabe | 
: 97 0218 2 ! Validate PFY and get PFV. | 
> «158 0219 2 te 
; 159 0220 2 
: 160 0221 2 PASSSVALIDATE_PFV (PFV CPFVSR_PFVI]; FCB); 
: 161 0222 2 
; 162 0223 2 + ; . ~ | 
s 165 0224 2 ! Set unwind action to unlock file. 
: 164 0225 2 le 
3s 165 0226 2 
3 166 0227 2 UNWIND_ACT = PAS$K_UNWIND_UNLOCK; 
s ter bese 2 
; 168 02 § ? ; 
: 169 0230 ! Do common initialization. 
: 170 0231 2 le | 
; 71 0232 2 
: 172 0233 2 PASSSINIT_READ (PFV CPFVSR_PFV], FCB CFCBSR_FCBJ; FCB); 
» VS 0234 2 
; 174 0235 2 ‘+ : c é 
s 75 0236 2 ! Call utility routine to find a string that looks Like an unsigned integer. 
; 176 0237 2 ! If we can't find one, signal an error. 
» tr 0238 2 fo 
: 7 0239 2 
: 179 0240 2 IF NOT PASSSGET_UNSIGNED (PFV CPFVSR_PFV], FCB CFCBSR_FCBI; 
: 13) OSes § a eee eels STRING_LENGTH, FCB) 
: 186 P $508 ¢ SPASSIO_ERROR (PAS$_INVSYNUNS,3,.STRING_LENGTH,.STRING_ADDR, 
; 18 0244 FCB CFCBSL_RECORD_NUMBERS) 
> «184 0245 3 
3; «185 0246 3 '¢ : : ; : 
; 186 0247 ! Call convert routine. If it fails, signal an error. | 
: 187 0248 = 
: «4188 0249 
; «189 0250 2 ELSE IF NOT LIBSCVT_DTB (.STRING_LENGTH, .STRING_ADDR, RESULT) 
: 190 0251 THEN 
3; «191 8S3¢ BEGIN 
3 ist 025 LOCAL 
; «19 0254 DESCR: BLOCK (8,BYTE); 
> 194 0255 DESCR CDSC$W_LENGTH) = .STRING_LENGTH; 
3; «6195 0256 DESCR CDSC$B_CLASS) = 0; 
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1-002 PASSREAD_UNSIGNED = Read an unsigned integer fr 14-Sep-1984 12:51:5 PASRTL.SRC JPASREAUNS .8352;1 (3) 
: 196 0257 DESCR ppsteepryetd = 0; 
3; 197 0 28 DESCR LDSCSA_ POINTER] = . TRING AD R; 
: 198 P 0259 $PAS$SIO_ERROR (PAS$_NOTVALTYP, 3,DESCR 
: 199 P 0260 UPLIT BYTE (X%CHARCOUNT('UNSIGNED'S,"UNSIGNED'), 
: 200 0261 -FCB CFCBSL_RECORD_NUMBER]); 
; 201 0 66 END; 
; $e 026 
3; a 0264 + 
> 204 0265 ' Do end-of-READ processing. 
; 205 0266 2 le 
$ soe Bsor 
: son ps68 PASSSEND_READ (PFV CPFVSR_PFV], FCB CFCBSR_FCBI); 
: 209 0270 2 RETURN .RESULT; 
; 210 0271 2 
3 2 0272 1 END; ! End of routine PASSREAD_UNSIGNED 

-TITLE PASSREAD_UNSIGNED Read an unsigned integer 

-IDENT \1-002\ 

-PSECT _PASSCODE,NOWRT, SHR, PIC,2 

08 00000 P.AAA: .BYTE 8 3 
44 45 4E 47 49 #53 GE 55 00001 eASCII \UNSIGNED\ F 


.EXTRN PAS$READ_UNSIGNED 

-EXTRN PASSREADY_UNSIGNED 

-EXTRN PAS$$I0_HANDLER 

~EXTRN PASSS$VACIDATE_PFV 

-EXTRN PAS$SINIT_READ, PASSSGET UNSIGNED 
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-EXTRN PASS$SSIGNAL, PASSK_IN SYRQU 
-EXTRN LIBSCVT_DTB, PASSK_NOTVALTYP 
“EXTRN PASS$SEND_READ 
01FC 00900 .ENTRY PASSREAD_UNSIGNED, Save R2.R3,R4,R5,R6,R7.- ; 0144 
5E 18 C2 00002 SUBL2 #24, SP : 
0c AE 7C 00005 CLRQ ERROR_ADDR ; 0190 
14 AE D4 00008 CLRL PFV_ADDR 3 
6D 0078 CF DE 0000B MOVAL 6$, (FP) : 
02 6c 91 90019 CMPB. ss (AP), #2 : 0211 
0c AE 08 fs if ites tied ERROR ERROR_ADDR : 0213 
54 04 AC of ah 1$: MOVL FV, R6 ‘ : 0215 
16 AE 56 DO OOOTE MOVL 6, PFV_AD : 
000000006 00 16 00022 SB PASSSVACIDATE_PFV : 0221 
10 AE 01 pO 00028 MOVL #1, UNWIN : 097 
000000006 00 16 000eC JSB PASSSINIT READ : 0233 | 
000000006 00 16 000 H JSB PASS$$GET_ONSIGNED > 0240 | 
OF Q €8 000 LBS : | 
C8 A? DD 0038 PUSHL =56(FCB) > 0244 | 
54 DD O0O03E PUSHL STRING_ADDR 3 
55 DD 00040 PUSHL STRING-LENGTH F 
03 oD 96042 PUSHL #3 ; 
7E 006 BF 9A 00044 MOVZBL #PASSK_INVSYNUNS, -(SP) : 
27 11 00048 BRB 3$ ; 


Pee ee ee ee ee 


; Routine Size: 170 bytes, Routine Base: _PASSCODE + 0009 
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i802 PASSREAD_UNSIGNED - Read an unsigned integer fr 1228671382 93: 8 :33 PASRTL” SR RC IP PASREAUNS .B52;1 " (3) | 

‘oro Ree BURN ERNE Eker , 0250} | 

000000006 ; FB 0050 CALLS Nabe _DTB ; | ; 

04 ic 005A MOVZWL ST in ING_LENGTH, DE ESCR 0255 | 

08 AE 4 00 0005 OVL  STRING-ADDR, BESCR+4 : 0258 : 

C8 A7 DD 0006 PUSHL =56(FCB) ; 0261 | : 

8F AF 9F 0006 PUSHAB P. : | ; 

0c AE 9F 00068 PUSHAB D SCR : F 

0 bo 0068 PUSHL : | : 

7E 00G 8F 9A 906 MOVZBL APASSK NOTVALTYP, =(SP) : ; 

000000006 06 05 FB 99 1 3$ CALLS , PASSS$SIGNAL ; : 

A 11 00078 BRB § : 

000000006 00 16 O007A 4$ JSB PASSSEND READ ; 0268 : 

0 6E 00 00089 MOVL ESULT, RO ; 0270, : 

04 0008 RET ; ; 

50 D4 00084 5$ CLRL = RO ; 0272 : 

04 00086 RET : : 

0000 00087 6$ «WORD Save nothing ; 0190 : 

50 08 AC DO 00089 MOVL  8(AP), RO : ; 

50 04 Ad DO 0008D MOVL  4(RO), ; : 

F4 AO 9F 00091 PUSHAB ERROR_ADDR : | ; 

F8 AO 9F 00094 PUSHAB UNWIND ACT : : 

FC AO 9F 00097 PUSHAB PFV ; ; 

03 0D 0009A PUSHL #3 : ; 

5E DD 0009C PUSHL SP : | ; 

7E 04 AC 7D 0009E MOVa. 4(AP), -(SP) : ; 

000000006 00 03 FB OO0A2 CALLS #3, PASS$$IO_HANDLER ; ; 

04 000A9 RET : 3 


| 
| 
1 | 
1 !<BLF/PAGE> 
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er 16-Sep-1984 02:03: AX-11 Bliss-32 V4.0-74 Pa 7 PA! 
PASSREADV UNGTENED © Read an unsigned from stri lnasepel9RG $3:57:82  PRASRTL SRESPASREAUNS 69251 0 1-( 
75 1 XSBITL ‘PASSREADV Ys LSNED - Read an unsigned from string’ 
GLOBAL ROUT INE PASSREADV_UNSIGNED ( 
2 
2 
2 
2 
3 
3 
3 


ING: REF BLOCR C, BYTE), ' String descriptor 
ERROR ' Error unwind address 


+e 
FUNCTIONAL DESCRIPTION: 


This function reads an unsigred integer from the specified string 
and returns it as the function value. 


CALLING SEQUENCE: | 
Unsigned.wlu.v = PASSREADV_UNSIGNED (STRING.mt.ds C, ERROR. ja.rJ) 
FORMAL PARAMETERS: 
STRING - The string to read from, passed as a class S 
(assumed) descriptor. the Length and pointer 
are updated to reflect the unread string. 


ERROR - Optional. If specified, the address to unwind to 
in case of an error. 


' 
i 
i 
i 
i 
i 
! 
i 
i 
i 
i 
i 
| IMPLICIT INPUTS: 
; NONE 
i IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
The value of the unsigned integer read. 
i SIDE EFFECTS: 
: NONE 
i SIGNALLED ERRORS: 
NONE 
lee 

BEGIN 


LOCAL 
ahs, SPASSPFV_FILE_VARIABLE, 


L 
ARG_LIST: VECTOR (2, LONG), 
PFV"ADDR: VOLATILE, 
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ned integer 18-5 -1984 02:03:53 
PASSREADV. UNS] GNED - Read an unsigned from stri 12-88-18 e 98: 1:52 


BUILTIN 
ACTUALCOUNT; ! Count of arguments 


ENABLE 
PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); 


14 


Get ERROR parameter, if present. 


J  heeeeenel () GEQU 2 
ERROR_ADDR = .ERROR; ! Set unwind adoress 
PFV_ADDR = PFV CPFVSR_P! VJ; ! Set PFV address 


‘+ 
Set up ARG_LIST 


¥2 ! One argument 
PFy CPFVSR_PFV); i PFV address 


A 
A 
' 
i 
ASSREAD_UNSIGNED to call. 


+ 
4 pete PAS$SDO_READV to do the work, giving it the address of 


PASSSDO_READV (PFV CPFVSR_PFVJ, .STRING, ARG_LIST, PASSREAD_UNSIGNED; 


RETURN .RESULT; 


END; ! End of routine PASSREADV_UNSIGNED 


.EXTRN PASS$S$DO_READV 
ENTRY PASSREADV_UNSIGNED, Save R2,R3.R4,R6 


005c¢ 00000 
5E 20 C2 00002 SUBL2 i 
7E 04 00005 CLRL  ERROR_ADDR 
AE 7C 00007 CLRQ UNWINB_ACT 
6D 0030 «CF DE 000A MOVAL 2%, (FP) 
02 6C 91 O000F MPB 
04 1F 00012 BLSSU 
6E 08 AC DO 00014 
08 AE 14 AE 4 90018 1$: MOVAB PFV, PFV_ADDR 
OC AE 01 00 0001D MOVL #1, CIST 
10 AE 14 AE 9€ 00021 MOVAB PFV 
54 FF2C CF 9E 00026 MOVAB PAS 
53 OC AE 9E CO002B MOVAB ARG 
6&6 14 AE 3 O02F MOVAB 
52 04 aC D 99 3 MOVL 
000000006 00 16 000 
04 0003D RET 
0000 0003 


ASREAUNS .B32; 1 


! Enable error handler 


$, (F 
(AP), #2 
MOVL ERROR, ERROR_ADDR 


ARG_LIST+4 
SREAD-UNSIGNED, R4 
“LIST? R 


STRING, R2 
JSB PAS$$DO_READV 
23: -WORD Save nothing 


Sete Se Se Se Se Se Se Se Ge Ge Se Se Se Se Se Be Be 
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1-002 PASSREADV_UNSIGNED - 


3; Routine Size: 


306 
307 


97 bytes, 


0366 
0367 


5p 


7E 
000000006 00 


1 
1 !<BLF/PAGE> 


Routine Base: 
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Sh A 
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ee A 
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06 A 

4 
_PASSCODE + 


0083 


H 1 
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ead an unsigned from stri 12: -Sep-1 


MOVL 
MO 


Be 18:51:53 


AX-11 Bliss-32 V4.0 
PASRTL.SRC PASREAUNS.. if 231 


B(AP), 
4(RO), 4 
ERROR ADDR 
UNWINB_ACT 
ADBR 


SP 
4(AP), =(SP) 
#3, pAss$i0 HANDLER 


Page 
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1-002 PASSREADV_UNSIGNED = Read an unsigned from stri 12: 2308-1384 PASRTL.SRC PASREAUNS. o 2;1 
316 0369 ! END ! End of module PASS$READ_UNSIGNED 
11 0 4 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
PASSCODE 276 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
een emia SyYEROLE ceeeress Pages Processing 
File Total Loaded Percent Mapped Time 
_$255$DUA28: CSYSLIBISTARLET.L32;1 9776 4 0 581 00:01.0 
~$255$DUA28: CPASRTL .OBJ JPASLIB.L32;1 427 99 23 33 00:00.4 
COMMAND QUALIFIERS 

BLISS/CHECK= (FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=L 1SS:PASREAUNS/08)=08J$ : PASREAUNS MSRC$:PASREAUNS/UPDATE=(ENHS$:PASREAUNS 
Size: 267 code + 9 data bytes 
Run Time: 00:07.2 
Elapsed Time: 00:25.2 
Lines/CPU Min: aH 
Lexemes/CPU-Min: 15276 
pom | Used: 87 pages 
Compilation Complete 
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